/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / schedule.sty

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 0a 25 20 46 69 6c 65 | 3a 20 73 63 68 65 64 75 |%.% File|: schedu|
|00000010| 6c 65 2e 73 74 79 0a 25 | 20 41 75 74 68 6f 72 3a |le.sty.%| Author:|
|00000020| 20 46 72 61 6e 6b 20 50 | 66 65 6e 6e 69 6e 67 20 | Frank P|fenning |
|00000030| 28 66 70 40 63 73 2e 63 | 6d 75 2e 65 64 75 29 0a |(fp@cs.c|mu.edu).|
|00000040| 25 0a 25 20 44 65 66 69 | 6e 65 73 20 6d 61 63 72 |%.% Defi|nes macr|
|00000050| 6f 73 20 74 6f 20 64 72 | 61 77 20 61 20 73 63 68 |os to dr|aw a sch|
|00000060| 65 64 75 6c 65 2e 0a 25 | 20 44 6f 63 75 6d 65 6e |edule..%| Documen|
|00000070| 74 61 74 69 6f 6e 20 69 | 73 20 69 6e 20 73 63 68 |tation i|s in sch|
|00000080| 65 64 75 6c 65 2e 64 6f | 63 0a 25 0a 25 20 55 73 |edule.do|c.%.% Us|
|00000090| 65 20 74 68 69 73 20 61 | 73 20 61 6e 20 6f 70 74 |e this a|s an opt|
|000000a0| 69 6f 6e 20 74 6f 20 61 | 6e 6f 74 68 65 72 20 64 |ion to a|nother d|
|000000b0| 6f 63 75 6d 65 6e 74 73 | 74 79 6c 65 2e 0a 0a 5c |ocuments|tyle...\|
|000000c0| 64 65 66 5c 73 69 6e 67 | 6c 65 70 61 67 65 73 74 |def\sing|lepagest|
|000000d0| 79 6c 65 7b 5c 74 6f 70 | 6d 61 72 67 69 6e 20 30 |yle{\top|margin 0|
|000000e0| 70 74 5c 70 61 67 65 73 | 74 79 6c 65 7b 65 6d 70 |pt\pages|tyle{emp|
|000000f0| 74 79 7d 5c 74 68 69 73 | 70 61 67 65 73 74 79 6c |ty}\this|pagestyl|
|00000100| 65 7b 65 6d 70 74 79 7d | 7d 0a 0a 20 20 25 20 54 |e{empty}|}..  % T|
|00000110| 68 65 20 69 6e 64 65 6e | 74 65 64 20 73 74 75 66 |he inden|ted stuf|
|00000120| 66 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 61 6c 6c 6f |f follow|ing allo|
|00000130| 77 73 20 67 72 61 79 20 | 6c 65 76 65 6c 73 20 6f |ws gray |levels o|
|00000140| 6e 20 70 6f 73 74 73 63 | 72 69 70 74 20 64 65 76 |n postsc|ript dev|
|00000150| 69 63 65 73 2e 0a 20 20 | 25 20 49 74 20 6d 61 79 |ices..  |% It may|
|00000160| 20 6f 6e 6c 79 20 77 6f | 72 6b 20 61 74 20 74 68 | only wo|rk at th|
|00000170| 69 73 20 69 6e 73 74 61 | 6c 6c 61 74 69 6f 6e 20 |is insta|llation |
|00000180| 28 43 4d 55 29 2e 0a 20 | 20 25 20 49 73 20 74 68 |(CMU).. | % Is th|
|00000190| 65 72 65 20 61 20 72 65 | 6c 69 61 62 6c 65 20 77 |ere a re|liable w|
|000001a0| 61 79 20 74 6f 20 74 65 | 6c 6c 20 77 68 65 74 68 |ay to te|ll wheth|
|000001b0| 65 72 20 74 68 65 20 6f | 75 74 70 75 74 20 64 65 |er the o|utput de|
|000001c0| 76 69 63 65 20 69 73 0a | 20 20 25 20 70 6f 73 74 |vice is.|  % post|
|000001d0| 73 63 72 69 70 74 3f 0a | 20 20 5c 6e 65 77 69 66 |script?.|  \newif|
|000001e0| 5c 69 66 50 53 0a 20 20 | 5c 65 78 70 61 6e 64 61 |\ifPS.  |\expanda|
|000001f0| 66 74 65 72 5c 69 66 78 | 5c 63 73 6e 61 6d 65 20 |fter\ifx|\csname |
|00000200| 50 6f 73 74 53 63 72 69 | 70 74 5c 65 6e 64 63 73 |PostScri|pt\endcs|
|00000210| 6e 61 6d 65 5c 72 65 6c | 61 78 0a 09 5c 50 53 66 |name\rel|ax..\PSf|
|00000220| 61 6c 73 65 0a 20 20 20 | 20 20 20 5c 65 6c 73 65 |alse.   |   \else|
|00000230| 0a 09 5c 50 53 74 72 75 | 65 0a 20 20 20 20 20 20 |..\PStru|e.      |
|00000240| 5c 66 69 0a 0a 20 20 5c | 69 66 50 53 20 0a 20 20 |\fi..  \|ifPS .  |
|00000250| 20 20 20 20 5c 64 65 66 | 5c 73 65 74 67 72 61 79 |    \def|\setgray|
|00000260| 20 23 31 7b 5c 73 70 65 | 63 69 61 6c 7b 22 23 31 | #1{\spe|cial{"#1|
|00000270| 20 73 65 74 67 72 61 79 | 22 7d 7d 0a 09 25 20 43 | setgray|"}}..% C|
|00000280| 68 61 6e 67 65 73 20 74 | 68 65 20 67 72 61 79 20 |hanges t|he gray |
|00000290| 6c 65 76 65 6c 20 6f 66 | 20 74 68 65 20 22 70 65 |level of| the "pe|
|000002a0| 6e 22 20 6f 6e 20 74 68 | 65 20 50 6f 73 74 53 63 |n" on th|e PostSc|
|000002b0| 72 69 70 74 20 64 65 76 | 69 63 65 0a 09 25 20 20 |ript dev|ice..%  |
|000002c0| 23 31 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 6e |#1 shoul|d be a n|
|000002d0| 75 6d 62 65 72 20 62 65 | 74 77 65 65 6e 20 30 20 |umber be|tween 0 |
|000002e0| 61 6e 64 20 0a 09 25 20 | 20 30 20 69 73 20 62 6c |and ..% | 0 is bl|
|000002f0| 61 63 6b 20 20 20 20 20 | 20 20 20 20 31 20 69 73 |ack     |    1 is|
|00000300| 20 77 68 69 74 65 20 0a | 09 25 20 4e 42 20 52 65 | white .|.% NB Re|
|00000310| 6d 65 6d 62 65 72 20 74 | 6f 20 72 65 73 65 74 20 |member t|o reset |
|00000320| 74 68 65 20 67 72 61 79 | 20 6c 65 76 65 6c 20 74 |the gray| level t|
|00000330| 6f 20 62 6c 61 63 6b 2e | 0a 20 20 20 20 20 20 5c |o black.|.      \|
|00000340| 64 65 66 5c 44 61 72 6b | 7b 5c 64 65 66 5c 62 61 |def\Dark|{\def\ba|
|00000350| 63 6b 67 72 6f 75 6e 64 | 67 72 61 79 7b 5c 73 65 |ckground|gray{\se|
|00000360| 74 67 72 61 79 7b 30 2e | 38 7d 7d 7d 0a 20 20 20 |tgray{0.|8}}}.   |
|00000370| 20 20 20 5c 64 65 66 5c | 64 61 72 6b 7b 5c 64 65 |   \def\|dark{\de|
|00000380| 66 5c 62 61 63 6b 67 72 | 6f 75 6e 64 67 72 61 79 |f\backgr|oundgray|
|00000390| 7b 5c 73 65 74 67 72 61 | 79 7b 30 2e 39 7d 7d 7d |{\setgra|y{0.9}}}|
|000003a0| 0a 20 20 20 20 20 20 5c | 64 65 66 5c 6c 69 67 68 |.      \|def\ligh|
|000003b0| 74 7b 5c 64 65 66 5c 62 | 61 63 6b 67 72 6f 75 6e |t{\def\b|ackgroun|
|000003c0| 64 67 72 61 79 7b 5c 73 | 65 74 67 72 61 79 7b 30 |dgray{\s|etgray{0|
|000003d0| 2e 39 35 7d 7d 7d 0a 20 | 20 20 20 20 20 5c 64 65 |.95}}}. |     \de|
|000003e0| 66 5c 4c 69 67 68 74 7b | 5c 64 65 66 5c 62 61 63 |f\Light{|\def\bac|
|000003f0| 6b 67 72 6f 75 6e 64 67 | 72 61 79 7b 5c 73 65 74 |kgroundg|ray{\set|
|00000400| 67 72 61 79 7b 30 2e 39 | 39 7d 7d 7d 0a 20 20 20 |gray{0.9|9}}}.   |
|00000410| 20 20 20 5c 64 65 66 5c | 77 68 69 74 65 7b 5c 64 |   \def\|white{\d|
|00000420| 65 66 5c 62 61 63 6b 67 | 72 6f 75 6e 64 67 72 61 |ef\backg|roundgra|
|00000430| 79 7b 5c 73 65 74 67 72 | 61 79 7b 31 7d 7d 7d 0a |y{\setgr|ay{1}}}.|
|00000440| 20 20 5c 65 6c 73 65 0a | 20 20 20 20 20 20 5c 64 |  \else.|      \d|
|00000450| 65 66 5c 44 61 72 6b 7b | 7d 20 5c 64 65 66 5c 64 |ef\Dark{|} \def\d|
|00000460| 61 72 6b 7b 7d 20 5c 64 | 65 66 5c 6c 69 67 68 74 |ark{} \d|ef\light|
|00000470| 7b 7d 20 5c 64 65 66 5c | 4c 69 67 68 74 7b 7d 20 |{} \def\|Light{} |
|00000480| 5c 64 65 66 5c 77 68 69 | 74 65 7b 7d 0a 20 20 5c |\def\whi|te{}.  \|
|00000490| 66 69 0a 0a 5c 64 65 66 | 5c 62 61 63 6b 67 72 6f |fi..\def|\backgro|
|000004a0| 75 6e 64 64 65 66 61 75 | 6c 74 7b 5c 6c 69 67 68 |unddefau|lt{\ligh|
|000004b0| 74 7d 0a 0a 5c 6e 65 77 | 64 69 6d 65 6e 5c 73 63 |t}..\new|dimen\sc|
|000004c0| 68 65 64 75 6e 69 74 6c | 65 6e 67 74 68 20 5c 73 |hedunitl|ength \s|
|000004d0| 63 68 65 64 75 6e 69 74 | 6c 65 6e 67 74 68 3d 31 |chedunit|length=1|
|000004e0| 2e 31 70 74 0a 0a 5c 6e | 65 77 63 6f 75 6e 74 5c |.1pt..\n|ewcount\|
|000004f0| 68 6f 75 72 6c 65 6e 67 | 74 68 0a 5c 6e 65 77 63 |hourleng|th.\newc|
|00000500| 6f 75 6e 74 5c 64 61 79 | 77 69 64 74 68 0a 5c 64 |ount\day|width.\d|
|00000510| 65 66 5c 70 6f 72 74 72 | 61 69 74 7b 5c 68 6f 75 |ef\portr|ait{\hou|
|00000520| 72 6c 65 6e 67 74 68 3d | 36 30 20 5c 64 61 79 77 |rlength=|60 \dayw|
|00000530| 69 64 74 68 3d 38 30 7d | 0a 5c 64 65 66 5c 6c 61 |idth=80}|.\def\la|
|00000540| 6e 64 73 63 61 70 65 7b | 5c 68 6f 75 72 6c 65 6e |ndscape{|\hourlen|
|00000550| 67 74 68 3d 34 30 20 5c | 64 61 79 77 69 64 74 68 |gth=40 \|daywidth|
|00000560| 3d 31 32 30 7d 0a 5c 70 | 6f 72 74 72 61 69 74 0a |=120}.\p|ortrait.|
|00000570| 0a 5c 6e 65 77 63 6f 75 | 6e 74 5c 73 74 61 72 74 |.\newcou|nt\start|
|00000580| 64 61 79 20 5c 73 74 61 | 72 74 64 61 79 3d 38 0a |day \sta|rtday=8.|
|00000590| 5c 6e 65 77 63 6f 75 6e | 74 5c 65 6e 64 64 61 79 |\newcoun|t\endday|
|000005a0| 20 5c 65 6e 64 64 61 79 | 3d 35 0a 0a 5c 6e 65 77 | \endday|=5..\new|
|000005b0| 63 6f 75 6e 74 5c 66 69 | 72 73 74 64 61 79 20 5c |count\fi|rstday \|
|000005c0| 66 69 72 73 74 64 61 79 | 3d 30 0a 5c 6e 65 77 63 |firstday|=0.\newc|
|000005d0| 6f 75 6e 74 5c 6c 61 73 | 74 64 61 79 20 5c 6c 61 |ount\las|tday \la|
|000005e0| 73 74 64 61 79 3d 34 0a | 0a 5c 6e 65 77 63 6f 75 |stday=4.|.\newcou|
|000005f0| 6e 74 5c 73 63 68 65 64 | 74 6f 70 73 65 70 20 5c |nt\sched|topsep \|
|00000600| 73 63 68 65 64 74 6f 70 | 73 65 70 3d 34 30 0a 5c |schedtop|sep=40.\|
|00000610| 6e 65 77 63 6f 75 6e 74 | 5c 73 63 68 65 64 62 6f |newcount|\schedbo|
|00000620| 74 73 65 70 20 5c 73 63 | 68 65 64 62 6f 74 73 65 |tsep \sc|hedbotse|
|00000630| 70 3d 34 30 0a 0a 5c 6e | 65 77 63 6f 75 6e 74 5c |p=40..\n|ewcount\|
|00000640| 64 64 61 79 20 5c 64 64 | 61 79 3d 31 0a 5c 6e 65 |dday \dd|ay=1.\ne|
|00000650| 77 63 6f 75 6e 74 5c 6d | 6d 6f 6e 74 68 20 5c 6d |wcount\m|month \m|
|00000660| 6d 6f 6e 74 68 3d 30 0a | 0a 5c 6e 65 77 63 6f 75 |month=0.|.\newcou|
|00000670| 6e 74 5c 79 70 6f 73 20 | 5c 6e 65 77 63 6f 75 6e |nt\ypos |\newcoun|
|00000680| 74 5c 78 70 6f 73 20 5c | 6e 65 77 63 6f 75 6e 74 |t\xpos \|newcount|
|00000690| 5c 79 6c 65 6e 67 74 68 | 0a 0a 5c 6e 65 77 63 6f |\ylength|..\newco|
|000006a0| 75 6e 74 5c 74 65 6d 70 | 61 20 5c 6e 65 77 63 6f |unt\temp|a \newco|
|000006b0| 75 6e 74 5c 74 65 6d 70 | 62 20 5c 6e 65 77 63 6f |unt\temp|b \newco|
|000006c0| 75 6e 74 5c 74 65 6d 70 | 63 20 5c 6e 65 77 63 6f |unt\temp|c \newco|
|000006d0| 75 6e 74 5c 74 65 6d 70 | 64 0a 0a 5c 6e 65 77 63 |unt\temp|d..\newc|
|000006e0| 6f 75 6e 74 5c 73 63 68 | 65 64 74 6f 70 0a 0a 5c |ount\sch|edtop..\|
|000006f0| 6e 65 77 63 6f 75 6e 74 | 5c 73 63 68 65 64 77 69 |newcount|\schedwi|
|00000700| 64 74 68 20 5c 6e 65 77 | 63 6f 75 6e 74 5c 68 73 |dth \new|count\hs|
|00000710| 63 68 65 64 77 69 64 74 | 68 0a 0a 5c 6e 65 77 63 |chedwidt|h..\newc|
|00000720| 6f 75 6e 74 5c 66 69 72 | 73 74 64 61 79 6f 66 66 |ount\fir|stdayoff|
|00000730| 73 65 74 0a 5c 6e 65 77 | 63 6f 75 6e 74 5c 6e 75 |set.\new|count\nu|
|00000740| 6d 64 61 79 73 0a 0a 5c | 64 65 66 5c 70 72 65 61 |mdays..\|def\prea|
|00000750| 6d 62 6c 65 23 31 7b 5c | 67 64 65 66 5c 70 72 65 |mble#1{\|gdef\pre|
|00000760| 61 6d 62 6c 65 74 65 78 | 74 7b 23 31 7d 7d 0a 5c |ambletex|t{#1}}.\|
|00000770| 64 65 66 5c 62 65 67 69 | 6e 70 72 65 61 6d 62 6c |def\begi|npreambl|
|00000780| 65 23 31 5c 65 6e 64 70 | 72 65 61 6d 62 6c 65 7b |e#1\endp|reamble{|
|00000790| 5c 67 64 65 66 5c 70 72 | 65 61 6d 62 6c 65 74 65 |\gdef\pr|eamblete|
|000007a0| 78 74 7b 23 31 7d 7d 0a | 0a 5c 64 65 66 5c 70 6f |xt{#1}}.|.\def\po|
|000007b0| 73 74 61 6d 62 6c 65 23 | 31 7b 5c 67 64 65 66 5c |stamble#|1{\gdef\|
|000007c0| 70 6f 73 74 61 6d 62 6c | 65 74 65 78 74 7b 23 31 |postambl|etext{#1|
|000007d0| 7d 7d 0a 5c 64 65 66 5c | 62 65 67 69 6e 70 6f 73 |}}.\def\|beginpos|
|000007e0| 74 61 6d 62 6c 65 23 31 | 5c 65 6e 64 70 6f 73 74 |tamble#1|\endpost|
|000007f0| 61 6d 62 6c 65 7b 5c 67 | 64 65 66 5c 70 6f 73 74 |amble{\g|def\post|
|00000800| 61 6d 62 6c 65 74 65 78 | 74 7b 23 31 7d 7d 0a 0a |ambletex|t{#1}}..|
|00000810| 5c 64 65 66 5c 6d 61 72 | 6b 68 6f 75 72 73 7b 5c |\def\mar|khours{\|
|00000820| 67 64 65 66 5c 68 6f 75 | 72 6c 65 6e 67 74 68 6d |gdef\hou|rlengthm|
|00000830| 61 72 6b 73 7b 54 7d 7d | 0a 5c 64 65 66 5c 6e 6f |arks{T}}|.\def\no|
|00000840| 6d 61 72 6b 68 6f 75 72 | 73 7b 5c 67 64 65 66 5c |markhour|s{\gdef\|
|00000850| 68 6f 75 72 6c 65 6e 67 | 74 68 6d 61 72 6b 73 7b |hourleng|thmarks{|
|00000860| 4e 7d 7d 0a 0a 5c 64 65 | 66 5c 73 68 6f 77 64 61 |N}}..\de|f\showda|
|00000870| 74 65 73 7b 5c 67 64 65 | 66 5c 73 68 6f 77 64 61 |tes{\gde|f\showda|
|00000880| 74 65 73 66 6c 61 67 7b | 54 7d 7d 0a 5c 64 65 66 |tesflag{|T}}.\def|
|00000890| 5c 73 68 6f 77 6e 6f 64 | 61 74 65 73 7b 5c 67 64 |\shownod|ates{\gd|
|000008a0| 65 66 5c 73 68 6f 77 64 | 61 74 65 73 66 6c 61 67 |ef\showd|atesflag|
|000008b0| 7b 4e 7d 7d 0a 0a 5c 64 | 65 66 5c 62 65 67 69 6e |{N}}..\d|ef\begin|
|000008c0| 77 65 65 6b 23 31 2f 7b | 5c 6d 6d 6f 6e 74 68 20 |week#1/{|\mmonth |
|000008d0| 23 31 5c 64 64 61 79 20 | 7d 0a 5c 64 65 66 5c 66 |#1\dday |}.\def\f|
|000008e0| 69 72 73 74 64 61 74 65 | 7b 5c 62 65 67 69 6e 77 |irstdate|{\beginw|
|000008f0| 65 65 6b 7d 0a 0a 5c 70 | 72 65 61 6d 62 6c 65 7b |eek}..\p|reamble{|
|00000900| 7d 0a 5c 70 6f 73 74 61 | 6d 62 6c 65 7b 7d 0a 5c |}.\posta|mble{}.\|
|00000910| 6e 6f 6d 61 72 6b 68 6f | 75 72 73 0a 5c 73 68 6f |nomarkho|urs.\sho|
|00000920| 77 6e 6f 64 61 74 65 73 | 0a 0a 5c 64 65 66 5c 69 |wnodates|..\def\i|
|00000930| 6e 69 74 64 69 6d 65 6e | 7b 5c 75 6e 69 74 6c 65 |nitdimen|{\unitle|
|00000940| 6e 67 74 68 3d 5c 73 63 | 68 65 64 75 6e 69 74 6c |ngth=\sc|hedunitl|
|00000950| 65 6e 67 74 68 0a 5c 79 | 70 6f 73 3d 30 20 5c 78 |ength.\y|pos=0 \x|
|00000960| 70 6f 73 3d 30 0a 5c 79 | 6c 65 6e 67 74 68 3d 30 |pos=0.\y|length=0|
|00000970| 20 5c 74 65 6d 70 61 3d | 30 20 5c 74 65 6d 70 62 | \tempa=|0 \tempb|
|00000980| 3d 30 20 5c 74 65 6d 70 | 63 3d 30 20 5c 74 65 6d |=0 \temp|c=0 \tem|
|00000990| 70 64 3d 30 0a 5c 69 66 | 6e 75 6d 20 5c 65 6e 64 |pd=0.\if|num \end|
|000009a0| 64 61 79 3c 38 20 5c 61 | 64 76 61 6e 63 65 5c 65 |day<8 \a|dvance\e|
|000009b0| 6e 64 64 61 79 20 62 79 | 20 31 32 5c 66 69 0a 5c |ndday by| 12\fi.\|
|000009c0| 69 66 6e 75 6d 20 5c 73 | 74 61 72 74 64 61 79 3c |ifnum \s|tartday<|
|000009d0| 38 20 5c 61 64 76 61 6e | 63 65 5c 73 74 61 72 74 |8 \advan|ce\start|
|000009e0| 64 61 79 20 62 79 20 31 | 32 5c 66 69 0a 5c 73 63 |day by 1|2\fi.\sc|
|000009f0| 68 65 64 74 6f 70 3d 5c | 65 6e 64 64 61 79 20 5c |hedtop=\|endday \|
|00000a00| 61 64 76 61 6e 63 65 5c | 73 63 68 65 64 74 6f 70 |advance\|schedtop|
|00000a10| 20 62 79 20 2d 5c 73 74 | 61 72 74 64 61 79 0a 5c | by -\st|artday.\|
|00000a20| 6d 75 6c 74 69 70 6c 79 | 5c 73 63 68 65 64 74 6f |multiply|\schedto|
|00000a30| 70 20 62 79 5c 68 6f 75 | 72 6c 65 6e 67 74 68 0a |p by\hou|rlength.|
|00000a40| 5c 66 69 72 73 74 64 61 | 79 6f 66 66 73 65 74 3d |\firstda|yoffset=|
|00000a50| 5c 66 69 72 73 74 64 61 | 79 20 5c 6d 75 6c 74 69 |\firstda|y \multi|
|00000a60| 70 6c 79 5c 66 69 72 73 | 74 64 61 79 6f 66 66 73 |ply\firs|tdayoffs|
|00000a70| 65 74 20 62 79 5c 64 61 | 79 77 69 64 74 68 0a 5c |et by\da|ywidth.\|
|00000a80| 6e 75 6d 64 61 79 73 3d | 5c 6c 61 73 74 64 61 79 |numdays=|\lastday|
|00000a90| 20 5c 61 64 76 61 6e 63 | 65 5c 6e 75 6d 64 61 79 | \advanc|e\numday|
|00000aa0| 73 20 62 79 20 2d 5c 66 | 69 72 73 74 64 61 79 0a |s by -\f|irstday.|
|00000ab0| 5c 73 63 68 65 64 77 69 | 64 74 68 3d 5c 6e 75 6d |\schedwi|dth=\num|
|00000ac0| 64 61 79 73 20 5c 61 64 | 76 61 6e 63 65 5c 73 63 |days \ad|vance\sc|
|00000ad0| 68 65 64 77 69 64 74 68 | 20 62 79 20 31 0a 20 20 |hedwidth| by 1.  |
|00000ae0| 5c 6d 75 6c 74 69 70 6c | 79 5c 73 63 68 65 64 77 |\multipl|y\schedw|
|00000af0| 69 64 74 68 20 62 79 5c | 64 61 79 77 69 64 74 68 |idth by\|daywidth|
|00000b00| 0a 5c 68 73 63 68 65 64 | 77 69 64 74 68 3d 5c 73 |.\hsched|width=\s|
|00000b10| 63 68 65 64 77 69 64 74 | 68 20 5c 64 69 76 69 64 |chedwidt|h \divid|
|00000b20| 65 5c 68 73 63 68 65 64 | 77 69 64 74 68 20 62 79 |e\hsched|width by|
|00000b30| 20 32 0a 7d 0a 0a 5c 64 | 65 66 5c 63 6c 61 73 73 | 2.}..\d|ef\class|
|00000b40| 23 31 7b 5c 66 72 61 6d | 65 62 6f 78 28 5c 64 61 |#1{\fram|ebox(\da|
|00000b50| 79 77 69 64 74 68 2c 5c | 79 6c 65 6e 67 74 68 29 |ywidth,\|ylength)|
|00000b60| 7b 5c 62 65 67 69 6e 7b | 74 61 62 75 6c 61 72 7d |{\begin{|tabular}|
|00000b70| 7b 63 7d 0a 20 20 5c 63 | 6f 6d 6d 61 70 61 72 73 |{c}.  \c|ommapars|
|00000b80| 65 23 31 2c 2c 5c 65 6e | 64 7b 74 61 62 75 6c 61 |e#1,,\en|d{tabula|
|00000b90| 72 7d 7d 7d 0a 0a 5c 64 | 65 66 5c 63 6f 6d 6d 61 |r}}}..\d|ef\comma|
|00000ba0| 70 61 72 73 65 23 31 2c | 7b 5c 40 69 66 6e 65 78 |parse#1,|{\@ifnex|
|00000bb0| 74 63 68 61 72 20 2c 7b | 23 31 5c 69 67 6e 6f 72 |tchar ,{|#1\ignor|
|00000bc0| 65 63 68 61 72 7d 7b 23 | 31 5c 5c 5b 31 2e 33 65 |echar}{#|1\\[1.3e|
|00000bd0| 6d 5d 5c 63 6f 6d 6d 61 | 70 61 72 73 65 7d 7d 0a |m]\comma|parse}}.|
|00000be0| 5c 64 65 66 5c 69 67 6e | 6f 72 65 63 68 61 72 23 |\def\ign|orechar#|
|00000bf0| 31 7b 7d 0a 0a 5c 64 65 | 66 5c 74 69 6d 65 63 6c |1{}..\de|f\timecl|
|00000c00| 61 73 73 23 31 23 32 7b | 5c 70 75 74 28 5c 78 70 |ass#1#2{|\put(\xp|
|00000c10| 6f 73 2c 5c 79 70 6f 73 | 29 7b 5c 74 69 6d 65 62 |os,\ypos|){\timeb|
|00000c20| 6f 78 62 65 67 69 6e 7b | 23 31 7d 7d 25 0a 20 20 |oxbegin{|#1}}%.  |
|00000c30| 5c 70 75 74 28 5c 78 70 | 6f 73 2c 5c 79 70 6f 73 |\put(\xp|os,\ypos|
|00000c40| 29 7b 5c 74 69 6d 65 62 | 6f 78 65 6e 64 7b 23 32 |){\timeb|oxend{#2|
|00000c50| 7d 7d 7d 0a 0a 5c 64 65 | 66 5c 67 72 61 79 70 75 |}}}..\de|f\graypu|
|00000c60| 74 7b 25 0a 20 20 20 5c | 70 75 74 28 5c 78 70 6f |t{%.   \|put(\xpo|
|00000c70| 73 2c 5c 79 70 6f 73 29 | 7b 5c 62 61 63 6b 67 72 |s,\ypos)|{\backgr|
|00000c80| 6f 75 6e 64 67 72 61 79 | 0a 20 20 20 20 20 20 20 |oundgray|.       |
|00000c90| 20 5c 72 75 6c 65 7b 5c | 64 61 79 77 69 64 74 68 | \rule{\|daywidth|
|00000ca0| 5c 75 6e 69 74 6c 65 6e | 67 74 68 7d 7b 5c 79 6c |\unitlen|gth}{\yl|
|00000cb0| 65 6e 67 74 68 5c 75 6e | 69 74 6c 65 6e 67 74 68 |ength\un|itlength|
|00000cc0| 7d 25 0a 09 5c 62 6c 61 | 63 6b 7d 7d 0a 0a 5c 64 |}%..\bla|ck}}..\d|
|00000cd0| 65 66 5c 63 6c 61 73 73 | 70 75 74 23 31 3b 7b 25 |ef\class|put#1;{%|
|00000ce0| 0a 20 20 20 5c 70 75 74 | 28 5c 78 70 6f 73 2c 5c |.   \put|(\xpos,\|
|00000cf0| 79 70 6f 73 29 7b 5c 63 | 6c 61 73 73 7b 23 31 7d |ypos){\c|lass{#1}|
|00000d00| 7d 25 0a 20 20 20 5c 40 | 69 66 6e 65 78 74 63 68 |}%.   \@|ifnextch|
|00000d10| 61 72 20 5b 7b 5c 6f 70 | 74 6f 6e 65 7d 7b 5c 72 |ar [{\op|tone}{\r|
|00000d20| 65 6c 61 78 7d 25 5d 0a | 20 20 20 7d 0a 0a 5c 64 |elax}%].|   }..\d|
|00000d30| 65 66 5c 6f 70 74 6f 6e | 65 5b 23 31 5d 7b 5c 70 |ef\opton|e[#1]{\p|
|00000d40| 75 74 28 5c 78 70 6f 73 | 2c 5c 79 70 6f 73 29 7b |ut(\xpos|,\ypos){|
|00000d50| 5c 72 69 67 68 74 74 6f | 70 62 6f 78 7b 23 31 7d |\rightto|pbox{#1}|
|00000d60| 7d 25 0a 20 20 20 5c 40 | 69 66 6e 65 78 74 63 68 |}%.   \@|ifnextch|
|00000d70| 61 72 20 5b 7b 5c 6f 70 | 74 74 77 6f 7d 7b 5c 72 |ar [{\op|ttwo}{\r|
|00000d80| 65 6c 61 78 7d 25 5d 0a | 20 20 20 7d 0a 0a 5c 64 |elax}%].|   }..\d|
|00000d90| 65 66 5c 6f 70 74 74 77 | 6f 5b 23 31 5d 7b 5c 70 |ef\opttw|o[#1]{\p|
|00000da0| 75 74 28 5c 78 70 6f 73 | 2c 5c 79 70 6f 73 29 7b |ut(\xpos|,\ypos){|
|00000db0| 5c 72 69 67 68 74 62 6f | 74 62 6f 78 7b 23 31 7d |\rightbo|tbox{#1}|
|00000dc0| 7d 7d 0a 0a 5c 64 65 66 | 5c 74 69 6d 65 62 6f 78 |}}..\def|\timebox|
|00000dd0| 62 65 67 69 6e 23 31 7b | 5c 6d 61 6b 65 62 6f 78 |begin#1{|\makebox|
|00000de0| 28 5c 64 61 79 77 69 64 | 74 68 2c 5c 79 6c 65 6e |(\daywid|th,\ylen|
|00000df0| 67 74 68 29 5b 74 6c 5d | 7b 25 0a 20 20 20 5c 73 |gth)[tl]|{%.   \s|
|00000e00| 63 72 69 70 74 73 69 7a | 65 7b 5c 72 61 69 73 65 |criptsiz|e{\raise|
|00000e10| 62 6f 78 7b 30 65 6d 7d | 5b 30 2e 38 35 65 6d 5d |box{0em}|[0.85em]|
|00000e20| 7b 5c 73 63 72 69 70 74 | 73 69 7a 65 7b 5c 68 73 |{\script|size{\hs|
|00000e30| 6b 69 70 20 30 2e 32 65 | 6d 20 23 31 7d 7d 7d 7d |kip 0.2e|m #1}}}}|
|00000e40| 7d 0a 0a 5c 64 65 66 5c | 72 69 67 68 74 74 6f 70 |}..\def\|righttop|
|00000e50| 62 6f 78 23 31 7b 5c 6d | 61 6b 65 62 6f 78 28 5c |box#1{\m|akebox(\|
|00000e60| 64 61 79 77 69 64 74 68 | 2c 5c 79 6c 65 6e 67 74 |daywidth|,\ylengt|
|00000e70| 68 29 5b 74 72 5d 7b 25 | 0a 20 20 20 5c 73 63 72 |h)[tr]{%|.   \scr|
|00000e80| 69 70 74 73 69 7a 65 7b | 5c 72 61 69 73 65 62 6f |iptsize{|\raisebo|
|00000e90| 78 7b 30 65 6d 7d 5b 30 | 2e 38 35 65 6d 5d 7b 5c |x{0em}[0|.85em]{\|
|00000ea0| 73 63 72 69 70 74 73 69 | 7a 65 7b 23 31 5c 68 73 |scriptsi|ze{#1\hs|
|00000eb0| 6b 69 70 20 30 2e 32 65 | 6d 7d 7d 7d 7d 7d 0a 0a |kip 0.2e|m}}}}}..|
|00000ec0| 5c 64 65 66 5c 74 69 6d | 65 62 6f 78 65 6e 64 23 |\def\tim|eboxend#|
|00000ed0| 31 7b 5c 6d 61 6b 65 62 | 6f 78 28 5c 64 61 79 77 |1{\makeb|ox(\dayw|
|00000ee0| 69 64 74 68 2c 5c 79 6c | 65 6e 67 74 68 29 5b 62 |idth,\yl|ength)[b|
|00000ef0| 6c 5d 7b 25 0a 20 20 20 | 5c 73 63 72 69 70 74 73 |l]{%.   |\scripts|
|00000f00| 69 7a 65 7b 5c 72 61 69 | 73 65 62 6f 78 7b 30 2e |ize{\rai|sebox{0.|
|00000f10| 32 65 6d 7d 7b 5c 73 63 | 72 69 70 74 73 69 7a 65 |2em}{\sc|riptsize|
|00000f20| 7b 5c 68 73 6b 69 70 20 | 30 2e 32 65 6d 20 23 31 |{\hskip |0.2em #1|
|00000f30| 7d 7d 7d 7d 7d 0a 0a 5c | 64 65 66 5c 72 69 67 68 |}}}}}..\|def\righ|
|00000f40| 74 62 6f 74 62 6f 78 23 | 31 7b 5c 6d 61 6b 65 62 |tbotbox#|1{\makeb|
|00000f50| 6f 78 28 5c 64 61 79 77 | 69 64 74 68 2c 5c 79 6c |ox(\dayw|idth,\yl|
|00000f60| 65 6e 67 74 68 29 5b 62 | 72 5d 7b 25 0a 20 20 20 |ength)[b|r]{%.   |
|00000f70| 5c 73 63 72 69 70 74 73 | 69 7a 65 7b 5c 72 61 69 |\scripts|ize{\rai|
|00000f80| 73 65 62 6f 78 7b 30 2e | 32 65 6d 7d 7b 5c 73 63 |sebox{0.|2em}{\sc|
|00000f90| 72 69 70 74 73 69 7a 65 | 7b 23 31 5c 68 73 6b 69 |riptsize|{#1\hski|
|00000fa0| 70 20 30 2e 32 65 6d 7d | 7d 7d 7d 7d 0a 0a 5c 64 |p 0.2em}|}}}}..\d|
|00000fb0| 65 66 5c 64 61 79 77 69 | 64 74 68 78 70 6f 73 23 |ef\daywi|dthxpos#|
|00000fc0| 31 7b 25 0a 09 5c 61 64 | 76 61 6e 63 65 20 5c 78 |1{%..\ad|vance \x|
|00000fd0| 70 6f 73 20 62 79 20 2d | 5c 66 69 72 73 74 64 61 |pos by -|\firstda|
|00000fe0| 79 6f 66 66 73 65 74 0a | 20 20 20 5c 69 66 20 4d |yoffset.|   \if M|
|00000ff0| 23 31 5c 65 6c 73 65 20 | 5c 61 64 76 61 6e 63 65 |#1\else |\advance|
|00001000| 5c 78 70 6f 73 20 62 79 | 5c 64 61 79 77 69 64 74 |\xpos by|\daywidt|
|00001010| 68 0a 20 20 20 5c 69 66 | 20 54 23 31 5c 65 6c 73 |h.   \if| T#1\els|
|00001020| 65 20 5c 61 64 76 61 6e | 63 65 5c 78 70 6f 73 20 |e \advan|ce\xpos |
|00001030| 62 79 5c 64 61 79 77 69 | 64 74 68 0a 20 20 20 5c |by\daywi|dth.   \|
|00001040| 69 66 20 57 23 31 5c 65 | 6c 73 65 20 5c 61 64 76 |if W#1\e|lse \adv|
|00001050| 61 6e 63 65 5c 78 70 6f | 73 20 62 79 5c 64 61 79 |ance\xpo|s by\day|
|00001060| 77 69 64 74 68 0a 20 20 | 20 5c 69 66 20 48 23 31 |width.  | \if H#1|
|00001070| 5c 65 6c 73 65 20 5c 61 | 64 76 61 6e 63 65 5c 78 |\else \a|dvance\x|
|00001080| 70 6f 73 20 62 79 5c 64 | 61 79 77 69 64 74 68 0a |pos by\d|aywidth.|
|00001090| 20 20 20 5c 69 66 20 46 | 23 31 5c 65 6c 73 65 20 |   \if F|#1\else |
|000010a0| 5c 61 64 76 61 6e 63 65 | 5c 78 70 6f 73 20 62 79 |\advance|\xpos by|
|000010b0| 5c 64 61 79 77 69 64 74 | 68 0a 20 20 20 5c 69 66 |\daywidt|h.   \if|
|000010c0| 20 53 23 31 5c 65 6c 73 | 65 20 5c 61 64 76 61 6e | S#1\els|e \advan|
|000010d0| 63 65 5c 78 70 6f 73 20 | 62 79 5c 64 61 79 77 69 |ce\xpos |by\daywi|
|000010e0| 64 74 68 0a 20 20 20 5c | 69 66 20 55 23 31 5c 65 |dth.   \|if U#1\e|
|000010f0| 6c 73 65 20 5c 61 64 76 | 61 6e 63 65 5c 78 70 6f |lse \adv|ance\xpo|
|00001100| 73 20 62 79 5c 64 61 79 | 77 69 64 74 68 5c 66 69 |s by\day|width\fi|
|00001110| 5c 66 69 5c 66 69 5c 66 | 69 5c 66 69 5c 66 69 5c |\fi\fi\f|i\fi\fi\|
|00001120| 66 69 7d 0a 0a 5c 64 65 | 66 5c 63 44 7b 5c 44 61 |fi}..\de|f\cD{\Da|
|00001130| 72 6b 5c 63 64 65 66 61 | 75 6c 74 7d 0a 5c 64 65 |rk\cdefa|ult}.\de|
|00001140| 66 5c 63 64 7b 5c 64 61 | 72 6b 5c 63 64 65 66 61 |f\cd{\da|rk\cdefa|
|00001150| 75 6c 74 7d 0a 5c 64 65 | 66 5c 63 6c 7b 5c 6c 69 |ult}.\de|f\cl{\li|
|00001160| 67 68 74 5c 63 64 65 66 | 61 75 6c 74 7d 0a 5c 64 |ght\cdef|ault}.\d|
|00001170| 65 66 5c 63 4c 7b 5c 4c | 69 67 68 74 5c 63 64 65 |ef\cL{\L|ight\cde|
|00001180| 66 61 75 6c 74 7d 0a 5c | 64 65 66 5c 63 77 7b 5c |fault}.\|def\cw{\|
|00001190| 77 68 69 74 65 5c 63 64 | 65 66 61 75 6c 74 7d 0a |white\cd|efault}.|
|000011a0| 5c 64 65 66 5c 63 7b 5c | 62 61 63 6b 67 72 6f 75 |\def\c{\|backgrou|
|000011b0| 6e 64 64 65 66 61 75 6c | 74 5c 63 64 65 66 61 75 |nddefaul|t\cdefau|
|000011c0| 6c 74 7d 0a 0a 5c 64 65 | 66 5c 63 64 65 66 61 75 |lt}..\de|f\cdefau|
|000011d0| 6c 74 23 31 20 23 32 3a | 23 33 2d 23 34 3a 23 35 |lt#1 #2:|#3-#4:#5|
|000011e0| 20 7b 25 0a 20 20 20 20 | 20 20 25 25 20 46 69 72 | {%.    |  %% Fir|
|000011f0| 73 74 20 63 6f 6e 76 65 | 72 74 20 74 69 6d 65 20 |st conve|rt time |
|00001200| 74 6f 20 32 34 68 6f 75 | 72 20 63 6c 6f 63 6b 0a |to 24hou|r clock.|
|00001210| 20 20 20 20 20 20 5c 79 | 70 6f 73 3d 2d 23 32 20 |      \y|pos=-#2 |
|00001220| 5c 69 66 6e 75 6d 20 5c | 79 70 6f 73 3e 2d 38 20 |\ifnum \|ypos>-8 |
|00001230| 5c 61 64 76 61 6e 63 65 | 5c 79 70 6f 73 20 62 79 |\advance|\ypos by|
|00001240| 20 2d 31 32 5c 66 69 0a | 20 20 20 20 20 20 5c 79 | -12\fi.|      \y|
|00001250| 6c 65 6e 67 74 68 3d 23 | 34 20 5c 69 66 6e 75 6d |length=#|4 \ifnum|
|00001260| 20 5c 79 6c 65 6e 67 74 | 68 3c 38 20 5c 61 64 76 | \ylengt|h<8 \adv|
|00001270| 61 6e 63 65 5c 79 6c 65 | 6e 67 74 68 20 62 79 20 |ance\yle|ngth by |
|00001280| 31 32 5c 66 69 0a 20 20 | 20 20 20 20 25 25 20 4e |12\fi.  |    %% N|
|00001290| 6f 77 20 63 61 6c 63 75 | 6c 61 74 65 20 74 68 65 |ow calcu|late the|
|000012a0| 20 6c 65 6e 67 74 68 20 | 6f 66 20 74 68 65 20 65 | length |of the e|
|000012b0| 6e 74 72 79 3a 20 68 6f | 75 72 73 0a 20 20 20 20 |ntry: ho|urs.    |
|000012c0| 20 20 5c 61 64 76 61 6e | 63 65 5c 79 6c 65 6e 67 |  \advan|ce\yleng|
|000012d0| 74 68 20 62 79 20 5c 79 | 70 6f 73 20 5c 6d 75 6c |th by \y|pos \mul|
|000012e0| 74 69 70 6c 79 5c 79 6c | 65 6e 67 74 68 20 62 79 |tiply\yl|ength by|
|000012f0| 5c 68 6f 75 72 6c 65 6e | 67 74 68 0a 20 20 20 20 |\hourlen|gth.    |
|00001300| 20 20 25 25 20 43 61 6c | 63 75 6c 61 74 65 20 74 |  %% Cal|culate t|
|00001310| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |he begin|ning of |
|00001320| 74 68 65 20 65 6e 74 72 | 79 20 69 6e 20 68 6f 75 |the entr|y in hou|
|00001330| 72 73 0a 20 20 20 20 20 | 20 5c 61 64 76 61 6e 63 |rs.     | \advanc|
|00001340| 65 5c 79 70 6f 73 20 62 | 79 5c 73 74 61 72 74 64 |e\ypos b|y\startd|
|00001350| 61 79 0a 20 20 20 20 20 | 20 5c 6d 75 6c 74 69 70 |ay.     | \multip|
|00001360| 6c 79 5c 79 70 6f 73 20 | 62 79 5c 68 6f 75 72 6c |ly\ypos |by\hourl|
|00001370| 65 6e 67 74 68 0a 20 20 | 20 20 20 20 5c 61 64 76 |ength.  |    \adv|
|00001380| 61 6e 63 65 5c 79 70 6f | 73 20 62 79 5c 73 63 68 |ance\ypo|s by\sch|
|00001390| 65 64 74 6f 70 0a 20 20 | 20 20 20 20 25 25 20 41 |edtop.  |    %% A|
|000013a0| 64 64 20 74 68 65 20 6d | 69 6e 75 74 65 73 0a 20 |dd the m|inutes. |
|000013b0| 20 20 20 20 20 5c 74 65 | 6d 70 61 3d 23 33 20 5c |     \te|mpa=#3 \|
|000013c0| 6d 75 6c 74 69 70 6c 79 | 5c 74 65 6d 70 61 20 62 |multiply|\tempa b|
|000013d0| 79 5c 68 6f 75 72 6c 65 | 6e 67 74 68 20 5c 64 69 |y\hourle|ngth \di|
|000013e0| 76 69 64 65 5c 74 65 6d | 70 61 20 62 79 20 36 30 |vide\tem|pa by 60|
|000013f0| 0a 20 20 20 20 20 20 5c | 61 64 76 61 6e 63 65 5c |.      \|advance\|
|00001400| 79 70 6f 73 20 62 79 20 | 2d 5c 74 65 6d 70 61 0a |ypos by |-\tempa.|
|00001410| 20 20 20 20 20 20 25 25 | 20 41 64 64 20 6d 69 6e |      %%| Add min|
|00001420| 75 74 65 73 20 74 6f 20 | 6c 65 6e 67 74 68 2e 0a |utes to |length..|
|00001430| 20 20 20 20 20 20 5c 74 | 65 6d 70 61 3d 23 35 20 |      \t|empa=#5 |
|00001440| 5c 61 64 76 61 6e 63 65 | 5c 74 65 6d 70 61 20 62 |\advance|\tempa b|
|00001450| 79 20 2d 23 33 0a 20 20 | 20 20 20 20 5c 6d 75 6c |y -#3.  |    \mul|
|00001460| 74 69 70 6c 79 5c 74 65 | 6d 70 61 20 62 79 5c 68 |tiply\te|mpa by\h|
|00001470| 6f 75 72 6c 65 6e 67 74 | 68 20 5c 64 69 76 69 64 |ourlengt|h \divid|
|00001480| 65 5c 74 65 6d 70 61 20 | 62 79 20 36 30 0a 20 20 |e\tempa |by 60.  |
|00001490| 20 20 20 20 5c 61 64 76 | 61 6e 63 65 5c 79 6c 65 |    \adv|ance\yle|
|000014a0| 6e 67 74 68 20 62 79 5c | 74 65 6d 70 61 0a 20 20 |ngth by\|tempa.  |
|000014b0| 20 20 20 20 25 25 20 54 | 68 65 20 6c 6f 77 65 72 |    %% T|he lower|
|000014c0| 20 6c 65 66 74 20 63 6f | 72 6e 65 72 20 69 73 20 | left co|rner is |
|000014d0| 61 74 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |at begin|ning of |
|000014e0| 65 6e 74 72 79 20 2d 20 | 6c 65 6e 67 74 68 20 6f |entry - |length o|
|000014f0| 66 20 65 6e 74 72 79 0a | 20 20 20 20 20 20 5c 61 |f entry.|      \a|
|00001500| 64 76 61 6e 63 65 5c 79 | 70 6f 73 20 62 79 20 2d |dvance\y|pos by -|
|00001510| 5c 79 6c 65 6e 67 74 68 | 0a 20 20 20 20 20 20 5c |\ylength|.      \|
|00001520| 78 70 6f 73 3d 30 20 5c | 64 61 79 77 69 64 74 68 |xpos=0 \|daywidth|
|00001530| 78 70 6f 73 7b 23 31 7d | 25 0a 20 20 20 20 20 20 |xpos{#1}|%.      |
|00001540| 5c 69 66 50 53 20 5c 67 | 72 61 79 70 75 74 5c 66 |\ifPS \g|rayput\f|
|00001550| 69 0a 20 20 20 20 20 20 | 5c 74 69 6d 65 63 6c 61 |i.      |\timecla|
|00001560| 73 73 7b 23 32 3a 23 33 | 7d 7b 23 34 3a 23 35 7d |ss{#2:#3|}{#4:#5}|
|00001570| 0a 20 20 20 20 20 20 5c | 63 6c 61 73 73 70 75 74 |.      \|classput|
|00001580| 7d 0a 0a 0a 5c 64 65 66 | 5c 70 75 74 64 61 79 23 |}...\def|\putday#|
|00001590| 31 7b 5c 69 66 6e 75 6d | 20 5c 66 69 72 73 74 64 |1{\ifnum| \firstd|
|000015a0| 61 79 3c 5c 74 65 6d 70 | 63 20 5c 69 66 6e 75 6d |ay<\temp|c \ifnum|
|000015b0| 20 5c 74 65 6d 70 63 3c | 5c 74 65 6d 70 64 0a 09 | \tempc<|\tempd..|
|000015c0| 20 20 20 5c 70 75 74 28 | 5c 74 65 6d 70 61 2c 5c |   \put(|\tempa,\|
|000015d0| 73 63 68 65 64 74 6f 70 | 29 7b 5c 6d 61 6b 65 62 |schedtop|){\makeb|
|000015e0| 6f 78 28 5c 64 61 79 77 | 69 64 74 68 2c 32 30 29 |ox(\dayw|idth,20)|
|000015f0| 7b 23 31 7d 7d 25 0a 09 | 20 20 20 5c 69 66 20 54 |{#1}}%..|   \if T|
|00001600| 5c 73 68 6f 77 64 61 74 | 65 73 66 6c 61 67 0a 09 |\showdat|esflag..|
|00001610| 20 20 20 20 20 20 20 5c | 70 75 74 28 5c 74 65 6d |       \|put(\tem|
|00001620| 70 61 2c 2d 32 30 29 7b | 5c 6d 61 6b 65 62 6f 78 |pa,-20){|\makebox|
|00001630| 28 5c 64 61 79 77 69 64 | 74 68 2c 32 30 29 7b 5c |(\daywid|th,20){\|
|00001640| 74 68 65 5c 6d 6d 6f 6e | 74 68 2f 5c 74 68 65 5c |the\mmon|th/\the\|
|00001650| 64 64 61 79 7d 7d 25 0a | 09 20 20 20 20 20 20 20 |dday}}%.|.       |
|00001660| 5c 69 6e 63 72 65 61 73 | 65 64 61 79 20 5c 66 69 |\increas|eday \fi|
|00001670| 0a 20 20 20 20 20 20 20 | 20 20 20 20 5c 61 64 76 |.       |    \adv|
|00001680| 61 6e 63 65 5c 74 65 6d | 70 61 20 62 79 5c 64 61 |ance\tem|pa by\da|
|00001690| 79 77 69 64 74 68 20 5c | 66 69 20 5c 66 69 0a 09 |ywidth \|fi \fi..|
|000016a0| 20 20 20 5c 61 64 76 61 | 6e 63 65 5c 74 65 6d 70 |   \adva|nce\temp|
|000016b0| 63 20 62 79 20 31 7d 0a | 0a 5c 64 65 66 5c 6e 65 |c by 1}.|.\def\ne|
|000016c0| 78 74 6d 6f 6e 74 68 7b | 5c 61 64 76 61 6e 63 65 |xtmonth{|\advance|
|000016d0| 5c 6d 6d 6f 6e 74 68 20 | 62 79 20 31 5c 64 64 61 |\mmonth |by 1\dda|
|000016e0| 79 20 31 7d 0a 0a 5c 64 | 65 66 5c 69 6e 63 72 65 |y 1}..\d|ef\incre|
|000016f0| 61 73 65 64 61 79 7b 5c | 61 64 76 61 6e 63 65 5c |aseday{\|advance\|
|00001700| 64 64 61 79 20 62 79 20 | 31 0a 20 20 5c 69 66 6e |dday by |1.  \ifn|
|00001710| 75 6d 20 5c 64 64 61 79 | 3d 32 39 5c 69 66 6e 75 |um \dday|=29\ifnu|
|00001720| 6d 20 5c 6d 6d 6f 6e 74 | 68 3d 32 5c 6e 65 78 74 |m \mmont|h=2\next|
|00001730| 6d 6f 6e 74 68 5c 66 69 | 5c 66 69 0a 20 20 5c 69 |month\fi|\fi.  \i|
|00001740| 66 6e 75 6d 20 5c 64 64 | 61 79 3d 33 31 5c 69 66 |fnum \dd|ay=31\if|
|00001750| 63 61 73 65 20 5c 6d 6d | 6f 6e 74 68 20 5c 6f 72 |case \mm|onth \or|
|00001760| 20 5c 6f 72 20 5c 6f 72 | 20 5c 6f 72 20 5c 6e 65 | \or \or| \or \ne|
|00001770| 78 74 6d 6f 6e 74 68 0a | 09 09 09 09 20 5c 6f 72 |xtmonth.|.... \or|
|00001780| 20 5c 6f 72 20 5c 6e 65 | 78 74 6d 6f 6e 74 68 20 | \or \ne|xtmonth |
|00001790| 5c 6f 72 20 5c 6f 72 0a | 09 09 09 09 20 5c 6f 72 |\or \or.|.... \or|
|000017a0| 20 5c 6e 65 78 74 6d 6f | 6e 74 68 20 5c 6f 72 20 | \nextmo|nth \or |
|000017b0| 5c 6f 72 20 5c 6e 65 78 | 74 6d 6f 6e 74 68 0a 09 |\or \nex|tmonth..|
|000017c0| 09 09 09 20 5c 6f 72 20 | 5c 66 69 5c 66 69 0a 20 |... \or |\fi\fi. |
|000017d0| 20 5c 69 66 6e 75 6d 20 | 5c 64 64 61 79 3d 33 32 | \ifnum |\dday=32|
|000017e0| 5c 69 66 63 61 73 65 20 | 5c 6d 6d 6f 6e 74 68 20 |\ifcase |\mmonth |
|000017f0| 5c 6f 72 20 5c 6e 65 78 | 74 6d 6f 6e 74 68 20 5c |\or \nex|tmonth \|
|00001800| 6f 72 20 5c 6f 72 20 5c | 6e 65 78 74 6d 6f 6e 74 |or \or \|nextmont|
|00001810| 68 0a 09 09 09 09 20 5c | 6f 72 20 5c 6f 72 20 5c |h..... \|or \or \|
|00001820| 6e 65 78 74 6d 6f 6e 74 | 68 20 5c 6f 72 20 5c 6f |nextmont|h \or \o|
|00001830| 72 20 5c 6e 65 78 74 6d | 6f 6e 74 68 0a 09 09 09 |r \nextm|onth....|
|00001840| 09 20 5c 6f 72 20 5c 6e | 65 78 74 6d 6f 6e 74 68 |. \or \n|extmonth|
|00001850| 20 5c 6f 72 20 5c 6f 72 | 20 5c 6e 65 78 74 6d 6f | \or \or| \nextmo|
|00001860| 6e 74 68 0a 09 09 09 09 | 20 5c 6f 72 20 5c 6f 72 |nth.....| \or \or|
|00001870| 20 5c 6d 6d 6f 6e 74 68 | 20 31 5c 64 64 61 79 20 | \mmonth| 1\dday |
|00001880| 31 5c 66 69 5c 66 69 7d | 0a 0a 5c 64 65 66 5c 73 |1\fi\fi}|..\def\s|
|00001890| 63 68 65 64 75 6c 65 7b | 0a 0a 5c 69 6e 69 74 64 |chedule{|..\initd|
|000018a0| 69 6d 65 6e 0a 0a 5c 62 | 65 67 69 6e 7b 63 65 6e |imen..\b|egin{cen|
|000018b0| 74 65 72 7d 0a 0a 5c 62 | 65 67 69 6e 7b 70 69 63 |ter}..\b|egin{pic|
|000018c0| 74 75 72 65 7d 28 5c 73 | 63 68 65 64 77 69 64 74 |ture}(\s|chedwidt|
|000018d0| 68 2c 5c 73 63 68 65 64 | 74 6f 70 29 28 30 2c 30 |h,\sched|top)(0,0|
|000018e0| 29 0a 5c 74 65 6d 70 61 | 3d 5c 73 63 68 65 64 74 |).\tempa|=\schedt|
|000018f0| 6f 70 20 5c 61 64 76 61 | 6e 63 65 5c 74 65 6d 70 |op \adva|nce\temp|
|00001900| 61 20 62 79 5c 73 63 68 | 65 64 74 6f 70 73 65 70 |a by\sch|edtopsep|
|00001910| 0a 5c 70 75 74 28 5c 68 | 73 63 68 65 64 77 69 64 |.\put(\h|schedwid|
|00001920| 74 68 2c 5c 74 65 6d 70 | 61 29 7b 5c 6d 61 6b 65 |th,\temp|a){\make|
|00001930| 62 6f 78 28 30 2c 30 29 | 5b 62 5d 7b 5c 70 72 65 |box(0,0)|[b]{\pre|
|00001940| 61 6d 62 6c 65 74 65 78 | 74 7d 7d 0a 5c 70 75 74 |ambletex|t}}.\put|
|00001950| 28 30 2c 30 29 7b 5c 66 | 72 61 6d 65 62 6f 78 28 |(0,0){\f|ramebox(|
|00001960| 5c 73 63 68 65 64 77 69 | 64 74 68 2c 5c 73 63 68 |\schedwi|dth,\sch|
|00001970| 65 64 74 6f 70 29 7b 7d | 7d 0a 0a 25 25 20 4f 6e |edtop){}|}..%% On|
|00001980| 65 20 6d 6f 72 65 20 74 | 69 6d 65 20 73 74 61 6d |e more t|ime stam|
|00001990| 70 20 74 68 61 6e 20 74 | 68 65 72 65 20 61 72 65 |p than t|here are|
|000019a0| 20 68 6f 75 72 73 2e 0a | 5c 74 65 6d 70 61 3d 5c | hours..|\tempa=\|
|000019b0| 73 74 61 72 74 64 61 79 | 20 5c 61 64 76 61 6e 63 |startday| \advanc|
|000019c0| 65 5c 74 65 6d 70 61 20 | 62 79 20 2d 31 0a 0a 5c |e\tempa |by -1..\|
|000019d0| 78 70 6f 73 3d 5c 73 74 | 61 72 74 64 61 79 20 5c |xpos=\st|artday \|
|000019e0| 79 70 6f 73 3d 5c 73 63 | 68 65 64 74 6f 70 0a 5c |ypos=\sc|hedtop.\|
|000019f0| 6c 6f 6f 70 20 5c 69 66 | 6e 75 6d 20 5c 78 70 6f |loop \if|num \xpo|
|00001a00| 73 3e 31 32 20 5c 61 64 | 76 61 6e 63 65 5c 78 70 |s>12 \ad|vance\xp|
|00001a10| 6f 73 20 62 79 20 2d 31 | 32 5c 66 69 0a 20 20 20 |os by -1|2\fi.   |
|00001a20| 20 20 20 5c 70 75 74 28 | 30 2c 5c 79 70 6f 73 29 |   \put(|0,\ypos)|
|00001a30| 7b 5c 6d 61 6b 65 62 6f | 78 28 30 2c 30 29 5b 72 |{\makebo|x(0,0)[r|
|00001a40| 5d 7b 5c 74 68 65 5c 78 | 70 6f 73 20 3a 30 30 5c |]{\the\x|pos :00\|
|00001a50| 68 73 6b 69 70 20 31 2e | 37 65 6d 7d 7d 25 0a 20 |hskip 1.|7em}}%. |
|00001a60| 20 20 20 20 20 5c 61 64 | 76 61 6e 63 65 5c 79 70 |     \ad|vance\yp|
|00001a70| 6f 73 20 62 79 20 2d 5c | 68 6f 75 72 6c 65 6e 67 |os by -\|hourleng|
|00001a80| 74 68 20 5c 61 64 76 61 | 6e 63 65 5c 74 65 6d 70 |th \adva|nce\temp|
|00001a90| 61 20 62 79 20 31 0a 20 | 20 20 20 20 20 5c 61 64 |a by 1. |     \ad|
|00001aa0| 76 61 6e 63 65 5c 78 70 | 6f 73 20 62 79 20 31 0a |vance\xp|os by 1.|
|00001ab0| 20 20 20 20 20 20 5c 69 | 66 6e 75 6d 20 5c 74 65 |      \i|fnum \te|
|00001ac0| 6d 70 61 3c 5c 65 6e 64 | 64 61 79 20 5c 72 65 70 |mpa<\end|day \rep|
|00001ad0| 65 61 74 0a 0a 5c 74 65 | 6d 70 61 3d 5c 65 6e 64 |eat..\te|mpa=\end|
|00001ae0| 64 61 79 20 5c 61 64 76 | 61 6e 63 65 5c 74 65 6d |day \adv|ance\tem|
|00001af0| 70 61 20 62 79 20 2d 5c | 73 74 61 72 74 64 61 79 |pa by -\|startday|
|00001b00| 20 5c 61 64 76 61 6e 63 | 65 5c 74 65 6d 70 61 20 | \advanc|e\tempa |
|00001b10| 62 79 20 31 0a 5c 6d 75 | 6c 74 69 70 75 74 28 30 |by 1.\mu|ltiput(0|
|00001b20| 2c 5c 73 63 68 65 64 74 | 6f 70 29 28 30 2c 2d 5c |,\schedt|op)(0,-\|
|00001b30| 68 6f 75 72 6c 65 6e 67 | 74 68 29 7b 5c 74 65 6d |hourleng|th){\tem|
|00001b40| 70 61 7d 7b 25 0a 20 20 | 20 5c 6d 61 6b 65 62 6f |pa}{%.  | \makebo|
|00001b50| 78 28 30 2c 30 29 5b 72 | 5d 7b 5c 76 72 75 6c 65 |x(0,0)[r|]{\vrule|
|00001b60| 20 68 65 69 67 68 74 20 | 30 2e 34 70 74 20 77 69 | height |0.4pt wi|
|00001b70| 64 74 68 20 31 2e 35 65 | 6d 7d 7d 0a 0a 5c 69 66 |dth 1.5e|m}}..\if|
|00001b80| 20 54 5c 68 6f 75 72 6c | 65 6e 67 74 68 6d 61 72 | T\hourl|engthmar|
|00001b90| 6b 73 0a 20 20 5c 6d 75 | 6c 74 69 70 75 74 28 5c |ks.  \mu|ltiput(\|
|00001ba0| 64 61 79 77 69 64 74 68 | 2c 5c 73 63 68 65 64 74 |daywidth|,\schedt|
|00001bb0| 6f 70 29 28 5c 64 61 79 | 77 69 64 74 68 2c 30 29 |op)(\day|width,0)|
|00001bc0| 7b 5c 6e 75 6d 64 61 79 | 73 7d 7b 25 0a 20 20 20 |{\numday|s}{%.   |
|00001bd0| 20 20 20 5c 6d 61 6b 65 | 62 6f 78 28 30 2c 30 29 |   \make|box(0,0)|
|00001be0| 5b 74 5d 7b 5c 76 72 75 | 6c 65 20 68 65 69 67 68 |[t]{\vru|le heigh|
|00001bf0| 74 20 30 2e 33 65 6d 20 | 77 69 64 74 68 20 30 2e |t 0.3em |width 0.|
|00001c00| 34 70 74 7d 7d 0a 20 20 | 5c 6d 75 6c 74 69 70 75 |4pt}}.  |\multipu|
|00001c10| 74 28 5c 64 61 79 77 69 | 64 74 68 2c 30 29 28 5c |t(\daywi|dth,0)(\|
|00001c20| 64 61 79 77 69 64 74 68 | 2c 30 29 7b 5c 6e 75 6d |daywidth|,0){\num|
|00001c30| 64 61 79 73 7d 7b 25 0a | 20 20 20 20 20 20 5c 6d |days}{%.|      \m|
|00001c40| 61 6b 65 62 6f 78 28 30 | 2c 30 29 5b 62 5d 7b 5c |akebox(0|,0)[b]{\|
|00001c50| 76 72 75 6c 65 20 68 65 | 69 67 68 74 20 30 2e 33 |vrule he|ight 0.3|
|00001c60| 65 6d 20 77 69 64 74 68 | 20 30 2e 34 70 74 7d 7d |em width| 0.4pt}}|
|00001c70| 0a 20 20 5c 61 64 76 61 | 6e 63 65 5c 74 65 6d 70 |.  \adva|nce\temp|
|00001c80| 61 20 62 79 20 2d 32 0a | 20 20 5c 74 65 6d 70 64 |a by -2.|  \tempd|
|00001c90| 3d 5c 73 63 68 65 64 74 | 6f 70 20 5c 61 64 76 61 |=\schedt|op \adva|
|00001ca0| 6e 63 65 5c 74 65 6d 70 | 64 20 62 79 20 2d 5c 68 |nce\temp|d by -\h|
|00001cb0| 6f 75 72 6c 65 6e 67 74 | 68 0a 20 20 5c 74 65 6d |ourlengt|h.  \tem|
|00001cc0| 70 62 3d 5c 64 61 79 77 | 69 64 74 68 20 5c 74 65 |pb=\dayw|idth \te|
|00001cd0| 6d 70 63 3d 30 0a 20 20 | 5c 6d 75 6c 74 69 70 75 |mpc=0.  |\multipu|
|00001ce0| 74 28 30 2c 5c 74 65 6d | 70 64 29 28 30 2c 2d 5c |t(0,\tem|pd)(0,-\|
|00001cf0| 68 6f 75 72 6c 65 6e 67 | 74 68 29 7b 5c 74 65 6d |hourleng|th){\tem|
|00001d00| 70 61 7d 7b 25 0a 20 20 | 20 20 20 20 5c 6d 61 6b |pa}{%.  |    \mak|
|00001d10| 65 62 6f 78 28 30 2c 30 | 29 5b 6c 5d 7b 5c 76 72 |ebox(0,0|)[l]{\vr|
|00001d20| 75 6c 65 20 68 65 69 67 | 68 74 20 30 2e 34 70 74 |ule heig|ht 0.4pt|
|00001d30| 20 77 69 64 74 68 20 30 | 2e 33 65 6d 7d 7d 0a 20 | width 0|.3em}}. |
|00001d40| 20 5c 6c 6f 6f 70 20 5c | 6d 75 6c 74 69 70 75 74 | \loop \|multiput|
|00001d50| 28 5c 74 65 6d 70 62 2c | 5c 74 65 6d 70 64 29 28 |(\tempb,|\tempd)(|
|00001d60| 30 2c 2d 5c 68 6f 75 72 | 6c 65 6e 67 74 68 29 7b |0,-\hour|length){|
|00001d70| 5c 74 65 6d 70 61 7d 7b | 25 0a 20 20 20 20 20 20 |\tempa}{|%.      |
|00001d80| 20 20 20 20 20 5c 6d 61 | 6b 65 62 6f 78 28 30 2c |     \ma|kebox(0,|
|00001d90| 30 29 5b 63 5d 7b 5c 76 | 72 75 6c 65 20 68 65 69 |0)[c]{\v|rule hei|
|00001da0| 67 68 74 20 30 2e 32 70 | 74 20 64 65 70 74 68 20 |ght 0.2p|t depth |
|00001db0| 30 2e 32 70 74 20 77 69 | 64 74 68 20 30 2e 33 65 |0.2pt wi|dth 0.3e|
|00001dc0| 6d 20 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |m .     |        |
|00001dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |        |       \|
|00001de0| 76 72 75 6c 65 20 68 65 | 69 67 68 74 20 30 2e 33 |vrule he|ight 0.3|
|00001df0| 65 6d 20 64 65 70 74 68 | 20 30 2e 33 65 6d 20 77 |em depth| 0.3em w|
|00001e00| 69 64 74 68 20 30 2e 34 | 70 74 0a 09 09 09 20 20 |idth 0.4|pt....  |
|00001e10| 20 20 5c 76 72 75 6c 65 | 20 68 65 69 67 68 74 20 |  \vrule| height |
|00001e20| 30 2e 32 70 74 20 64 65 | 70 74 68 20 30 2e 32 70 |0.2pt de|pth 0.2p|
|00001e30| 74 20 77 69 64 74 68 20 | 30 2e 33 65 6d 7d 7d 0a |t width |0.3em}}.|
|00001e40| 20 20 20 20 20 20 20 20 | 5c 61 64 76 61 6e 63 65 |        |\advance|
|00001e50| 5c 74 65 6d 70 62 20 62 | 79 20 5c 64 61 79 77 69 |\tempb b|y \daywi|
|00001e60| 64 74 68 09 20 20 0a 20 | 20 20 20 20 20 20 20 5c |dth.  . |       \|
|00001e70| 61 64 76 61 6e 63 65 5c | 74 65 6d 70 63 20 62 79 |advance\|tempc by|
|00001e80| 20 31 0a 20 20 20 20 20 | 20 20 20 5c 69 66 6e 75 | 1.     |   \ifnu|
|00001e90| 6d 20 5c 74 65 6d 70 63 | 3c 5c 6e 75 6d 64 61 79 |m \tempc|<\numday|
|00001ea0| 73 20 5c 72 65 70 65 61 | 74 0a 20 20 5c 6d 75 6c |s \repea|t.  \mul|
|00001eb0| 74 69 70 75 74 28 5c 74 | 65 6d 70 62 2c 5c 74 65 |tiput(\t|empb,\te|
|00001ec0| 6d 70 64 29 28 30 2c 2d | 5c 68 6f 75 72 6c 65 6e |mpd)(0,-|\hourlen|
|00001ed0| 67 74 68 29 7b 5c 74 65 | 6d 70 61 7d 7b 25 0a 20 |gth){\te|mpa}{%. |
|00001ee0| 20 20 20 20 20 5c 6d 61 | 6b 65 62 6f 78 28 30 2c |     \ma|kebox(0,|
|00001ef0| 30 29 5b 72 5d 7b 5c 76 | 72 75 6c 65 20 68 65 69 |0)[r]{\v|rule hei|
|00001f00| 67 68 74 20 30 2e 34 70 | 74 20 77 69 64 74 68 20 |ght 0.4p|t width |
|00001f10| 30 2e 33 65 6d 7d 7d 0a | 20 20 5c 66 69 0a 0a 5c |0.3em}}.|  \fi..\|
|00001f20| 74 65 6d 70 61 3d 30 20 | 5c 74 65 6d 70 63 3d 31 |tempa=0 |\tempc=1|
|00001f30| 20 5c 74 65 6d 70 64 3d | 5c 6c 61 73 74 64 61 79 | \tempd=|\lastday|
|00001f40| 20 5c 61 64 76 61 6e 63 | 65 5c 74 65 6d 70 64 20 | \advanc|e\tempd |
|00001f50| 62 79 20 32 0a 5c 70 75 | 74 64 61 79 7b 4d 6f 6e |by 2.\pu|tday{Mon|
|00001f60| 64 61 79 7d 0a 5c 70 75 | 74 64 61 79 7b 54 75 65 |day}.\pu|tday{Tue|
|00001f70| 73 64 61 79 7d 0a 5c 70 | 75 74 64 61 79 7b 57 65 |sday}.\p|utday{We|
|00001f80| 64 6e 65 73 64 61 79 7d | 0a 5c 70 75 74 64 61 79 |dnesday}|.\putday|
|00001f90| 7b 54 68 75 72 73 64 61 | 79 7d 0a 5c 70 75 74 64 |{Thursda|y}.\putd|
|00001fa0| 61 79 7b 46 72 69 64 61 | 79 7d 0a 5c 70 75 74 64 |ay{Frida|y}.\putd|
|00001fb0| 61 79 7b 53 61 74 75 72 | 64 61 79 7d 0a 5c 70 75 |ay{Satur|day}.\pu|
|00001fc0| 74 64 61 79 7b 53 75 6e | 64 61 79 7d 0a 5c 70 75 |tday{Sun|day}.\pu|
|00001fd0| 74 28 30 2c 2d 5c 73 63 | 68 65 64 62 6f 74 73 65 |t(0,-\sc|hedbotse|
|00001fe0| 70 29 7b 5c 6d 61 6b 65 | 62 6f 78 28 30 2c 30 29 |p){\make|box(0,0)|
|00001ff0| 5b 74 6c 5d 7b 5c 70 6f | 73 74 61 6d 62 6c 65 74 |[tl]{\po|stamblet|
|00002000| 65 78 74 7d 7d 0a 7d 0a | 0a 5c 64 65 66 5c 65 6e |ext}}.}.|.\def\en|
|00002010| 64 73 63 68 65 64 75 6c | 65 7b 0a 5c 65 6e 64 7b |dschedul|e{.\end{|
|00002020| 70 69 63 74 75 72 65 7d | 0a 0a 5c 65 6e 64 7b 63 |picture}|..\end{c|
|00002030| 65 6e 74 65 72 7d 0a 7d | 0a                      |enter}.}|.       |
+--------+-------------------------+-------------------------+--------+--------+